10 FORA=1TO3
20 READN1$,N2$,S1,E1,SL,SH
30 SYS57812 N1$,8,1:POKE780,0:SYS65493
40 OPEN1,8,1,N2$+",P,W"
50 PRINT#1,CHR$(SL);CHR$(SH);
60 FORX=S1TOE1:PRINT#1,CHR$(PEEK(X));:NEXT
70 CLOSE1:NEXT
80 DATA "P1","E'TR.MAUS VC1351",49152,49747,0,0
90 DATA "P2","E'HI.MAUS",49152,49462,0,0
100 DATA "P3","E'LO.MAUS",49152,49475,0,0